home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS18.ADF / Logo / logo.6 < prev    next >
Text File  |  1989-01-27  |  736b  |  31 lines
  1. ;
  2. ;some moire patterns.
  3. ;
  4. to moirex :sx :sy :dxs :dxf :dy
  5.     if :dxs > :dxf [moirex :sx :sy :dxf :dxs :dy stop]
  6.     rp (:dxf-:dxs)/4 [pu setpos [:sx :sy] pd setpos [:dxs :dy] 
  7.                   make "dxs :dxs+4]
  8.     pu setpos [:sx :sy]
  9. end
  10.  
  11. to moirey :sx :sy :dx :dys :dyf
  12.     if :dys >:dyf [moirey :sx :sy :dx :dyf :dys stop]
  13.     rp (:dyf-:dys)/2 [pu setpos [:sx :sy] pd setpos [:dx :dys]
  14.                   make "dys :dys+2]
  15.     pu setpos [:sx :sy]
  16. end
  17.  
  18. ;
  19. ;notice how I use a dummy procedure to declare some global variables.
  20. ;
  21. to setglobals :gx :gy end
  22.  
  23. to demo
  24.    make "gx xpos
  25.    make "gy ypos
  26.    cs moirex :gx+50 :gy 0 600 0
  27.       moirey :gx+50 :gy 600 0 180
  28.       moirex :gx+50 :gy 0 600 180
  29.       moirey :gx+50 :gy 0 0 180
  30. end
  31.